Art Fundamentals - Core Concepts in Art/Art Fundamentals: Core Concepts in Art.iso/pc/shape_2.dxr/00001.ls

Text File | 2001-07-16 | 11.1 KB | 370 lines

on showit startnum, endnum
  repeat with X = startnum to endnum
    sprite(X).visible = 1
  end repeat
end

on hideit startnum, endnum
  repeat with X = startnum to endnum
    sprite(X).visible = 0
  end repeat
end

on rollit startnum, endnum
  repeat with X = startnum to endnum
    set the cursor of sprite X to 280
  end repeat
end

on unrollit startnum, endnum
  repeat with X = startnum to endnum
    set the cursor of sprite X to -1
  end repeat
end

on exercisehomebackroll
  if rollover(21) then
    sprite(14).visible = 1
    sprite(18).visible = 1
    hideit(15, 16)
    hideit(19, 20)
  else
    if rollover(22) then
      sprite(15).visible = 1
      sprite(19).visible = 1
      sprite(14).visible = 0
      sprite(18).visible = 0
      sprite(16).visible = 0
      sprite(20).visible = 0
    else
      if rollover(23) then
        sprite(16).visible = 1
        sprite(20).visible = 1
        hideit(14, 15)
        hideit(18, 19)
      else
        hideit(14, 16)
        hideit(18, 20)
      end if
    end if
  end if
  if rollover(8) then
    sprite(9).visible = 1
  else
    sprite(9).visible = 0
  end if
  if rollover(5) then
    sprite(10).visible = 1
    sprite(11).visible = 0
  else
    sprite(10).visible = 0
    sprite(11).visible = 1
  end if
end

on checkanswer img, level, answer
  if img = 1 then
    nothing()
  else
    if img = 2 then
      if level = 1 then
        if answer = 1 then
          set the memberNum of sprite 65 to member("correct")
          changelevel()
          updateStage()
        else
          if answer = 2 then
            set the memberNum of sprite 66 to member("TryAgain")
            updateStage()
          else
            if answer = 3 then
              set the memberNum of sprite 67 to member("TryAgain")
              updateStage()
            else
              if answer = 4 then
                set the memberNum of sprite 68 to member("TryAgain")
                updateStage()
              end if
            end if
          end if
        end if
      else
        if level = 2 then
          if answer = 1 then
            set the memberNum of sprite 65 to member("correct")
            changelevel()
            updateStage()
          else
            if answer = 2 then
              set the memberNum of sprite 66 to member("TryAgain")
              updateStage()
            else
              if answer = 3 then
                set the memberNum of sprite 67 to member("TryAgain")
                updateStage()
              else
                if answer = 4 then
                  set the memberNum of sprite 68 to member("TryAgain")
                  updateStage()
                end if
              end if
            end if
          end if
        else
          if level = 3 then
            if answer = 1 then
              set the memberNum of sprite 65 to member("correct")
              changelevel()
              updateStage()
            else
              if answer = 2 then
                set the memberNum of sprite 66 to member("TryAgain")
                updateStage()
              else
                if answer = 3 then
                  set the memberNum of sprite 67 to member("TryAgain")
                  updateStage()
                else
                  if answer = 4 then
                    set the memberNum of sprite 68 to member("TryAgain")
                    updateStage()
                  end if
                end if
              end if
            end if
          else
            if level = 4 then
              if answer = 1 then
                set the memberNum of sprite 65 to member("correct")
                changelevel()
                updateStage()
              else
                if answer = 2 then
                  set the memberNum of sprite 66 to member("TryAgain")
                  updateStage()
                else
                  if answer = 3 then
                    set the memberNum of sprite 67 to member("TryAgain")
                    updateStage()
                  else
                    if answer = 4 then
                      set the memberNum of sprite 68 to member("TryAgain")
                      updateStage()
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    else
      if img = 3 then
        if level = 1 then
          if answer = 1 then
            set the memberNum of sprite 65 to member("correct")
            changelevel()
            updateStage()
          else
            if answer = 2 then
              set the memberNum of sprite 66 to member("TryAgain")
              updateStage()
            else
              if answer = 3 then
                set the memberNum of sprite 67 to member("TryAgain")
                updateStage()
              else
                if answer = 4 then
                  set the memberNum of sprite 68 to member("TryAgain")
                  updateStage()
                end if
              end if
            end if
          end if
        else
          if level = 2 then
            if answer = 1 then
              set the memberNum of sprite 65 to member("correct")
              changelevel()
              updateStage()
            else
              if answer = 2 then
                set the memberNum of sprite 66 to member("TryAgain")
                updateStage()
              else
                if answer = 3 then
                  set the memberNum of sprite 67 to member("TryAgain")
                  updateStage()
                else
                  if answer = 4 then
                    set the memberNum of sprite 68 to member("TryAgain")
                    updateStage()
                  end if
                end if
              end if
            end if
          else
            if level = 3 then
              if answer = 1 then
                set the memberNum of sprite 65 to member("correct")
                changelevel()
                updateStage()
              else
                if answer = 2 then
                  set the memberNum of sprite 66 to member("TryAgain")
                  updateStage()
                else
                  if answer = 3 then
                    set the memberNum of sprite 67 to member("TryAgain")
                    updateStage()
                  else
                    if answer = 4 then
                      set the memberNum of sprite 68 to member("TryAgain")
                      updateStage()
                    end if
                  end if
                end if
              end if
            else
              if level = 4 then
                if answer = 1 then
                  set the memberNum of sprite 65 to member("correct")
                  changelevel()
                  updateStage()
                else
                  if answer = 2 then
                    set the memberNum of sprite 66 to member("TryAgain")
                    updateStage()
                  else
                    if answer = 3 then
                      set the memberNum of sprite 67 to member("TryAgain")
                      updateStage()
                    else
                      if answer = 4 then
                        set the memberNum of sprite 68 to member("TryAgain")
                        updateStage()
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      else
        if img = 4 then
          if level = 1 then
            if answer = 1 then
              set the memberNum of sprite 65 to member("correct")
              changelevel()
              updateStage()
            else
              if answer = 2 then
                set the memberNum of sprite 66 to member("TryAgain")
                updateStage()
              else
                if answer = 3 then
                  set the memberNum of sprite 67 to member("TryAgain")
                  updateStage()
                else
                  if answer = 4 then
                    set the memberNum of sprite 68 to member("TryAgain")
                    updateStage()
                  end if
                end if
              end if
            end if
          else
            if level = 2 then
              if answer = 1 then
                set the memberNum of sprite 65 to member("correct")
                changelevel()
                updateStage()
              else
                if answer = 2 then
                  set the memberNum of sprite 66 to member("TryAgain")
                  updateStage()
                else
                  if answer = 3 then
                    set the memberNum of sprite 67 to member("TryAgain")
                    updateStage()
                  else
                    if answer = 4 then
                      set the memberNum of sprite 68 to member("TryAgain")
                      updateStage()
                    end if
                  end if
                end if
              end if
            else
              if level = 3 then
                if answer = 1 then
                  set the memberNum of sprite 65 to member("correct")
                  changelevel()
                  updateStage()
                else
                  if answer = 2 then
                    set the memberNum of sprite 66 to member("TryAgain")
                    updateStage()
                  else
                    if answer = 3 then
                      set the memberNum of sprite 67 to member("TryAgain")
                      updateStage()
                    else
                      if answer = 4 then
                        set the memberNum of sprite 68 to member("TryAgain")
                        updateStage()
                      end if
                    end if
                  end if
                end if
              else
                if level = 4 then
                  if answer = 1 then
                    set the memberNum of sprite 65 to member("correct")
                    changelevel()
                    updateStage()
                  else
                    if answer = 2 then
                      set the memberNum of sprite 66 to member("TryAgain")
                      updateStage()
                    else
                      if answer = 3 then
                        set the memberNum of sprite 67 to member("TryAgain")
                        updateStage()
                      else
                        if answer = 4 then
                          set the memberNum of sprite 68 to member("TryAgain")
                          updateStage()
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on changelevel
  global level, img
  if level <> 4 then
    level = level + 1
    set the memberNum of sprite 62 to member("Image" & img & "-" & level)
  else
    if img <> 4 then
      level = 1
      img = img + 1
      set the memberNum of sprite 42 to member("Create" & img)
      set the memberNum of sprite 62 to member("Image" & img & "-" & level)
    else
      nothing()
    end if
  end if
  put level
end